10 POKE53280,6:PRINTCHR$(14)"[147]":    GOTO60
20 PRINT"[145][145]":IFCX>38THENPRINT"[145][145][145]"
30 PRINT"[156]"RIGHT$(STR$(Y),3)"[146][153]";
40 PRINTC$;:FORKL=LEN(C$)TOCX:PRINT" ";:NEXT:PRINT:PRINT"[145][145]":IFCX>38THENPRINT"[145][145][145]"
50 RETURN
60 DIMB$(1000):      GOTO1940
290 CB=0:SS=1:C$="":PRINT"[153]";
300 IFCB$<>""THENC$=C$+CB$:CB$="":PRINTC$;
310 IFKA=0THENIFLEN(C$)=A7THEN440
320 IFLEN(C$)=(A7+1)THEN410
330 IFFA=1THENIFLEN(C$)=>(A7-7)THENPOKE53281,10
340 T$="":POKE204,0:GETT$:IFT$=""ORT$="[145]"ORT$=""ORT$="[157]"ORT$=""ORT$=""THEN340
350 IFT$=CHR$(34)THEN340
360 POKE204,1:IFT$=CHR$(20)THEN390
370 IFT$=CHR$(13)THEN440
380 C$=C$+T$:PRINTT$;" [157]";:SS=2:GOTO310
390 IFLEN(C$)=0THENC$="":GOTO310
400 C$=LEFT$(C$,LEN(C$)-1):SS=2:PRINT" [157][157] [157]";:GOTO310
410 CX=LEN(C$):HJ=1:FORCV=CXTO1STEP-1
420 IFMID$(C$,CV,1)<>" "ANDMID$(C$,CV,1)<>"-"ANDMID$(C$,CV,1)<>"."THENCB=CB+1:NEXT
430 IFCV>1THENCV=1:NEXT:CB$=RIGHT$(C$,CB):C$=LEFT$(C$,(CX-CB)):PRINT:GOSUB20
440 IFSS=1THENC$=D$
450 IFHJ=0THENPRINT"  ";
460 POKE53281,0:HJ=0:KA=0:RETURN
1940 PRINT:PRINT"[153][215]IEVIELE [218]EICHEN MAXIMAL (10-80) ? ";:A7=2:GOSUB290:C=VAL(C$)
1950 IFC<10ORC>80THEN   END
1955 Y=1:PRINT
1990 PRINT"[197]NDE MIT <[210]ETURN>":POKE214,5:POKE211,0:SYS58640:I=0:FA=1
2000 REM
2010 PRINT"[156]"RIGHT$(STR$(Y),3)"[146]";:A7=C:KA=1:GOSUB290:IFSS=1THENY=Y-1:GOTO2030
2020 B$(Y)=C$:PRINT:Y=Y+1:I=1:GOTO2000
2030 REM
2031 PRINT"[147]":FORT=1TOY:PRINTB$(T):IF(T/11)=INT(T/11)THENPOKE198,0:WAIT198,1:POKE198,0
2032 NEXT